home *** CD-ROM | disk | FTP | other *** search
/ Corel Medical Series: Cancer / Corel Medical Series: Cancer.iso / pc / program / glossary.dxr / 00595.ls < prev    next >
Encoding:
Text File  |  1997-02-06  |  802 b   |  28 lines
  1. on adjustList
  2.   repeat with i = 561 to 583
  3.     repeat with j = 1 to the number of lines in field i
  4.       set thisLine to line j of field i
  5.       repeat with k = the number of chars in thisLine down to 1
  6.         if char k of line j of field i <> " " then
  7.           set thisLine to chars(thisLine, 1, k)
  8.           exit repeat
  9.         end if
  10.       end repeat
  11.       put thisLine into line j of field i
  12.     end repeat
  13.   end repeat
  14. end
  15.  
  16. on adjustName STARTPOINT, ENDPOINT
  17.   repeat with i = STARTPOINT to ENDPOINT
  18.     set thisName to the name of member i
  19.     repeat with j = the number of chars in thisName down to 1
  20.       if char j of thisName <> " " then
  21.         set thisName to chars(thisName, 1, j)
  22.         exit repeat
  23.       end if
  24.     end repeat
  25.     set the name of member i to thisName
  26.   end repeat
  27. end
  28.